home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / notemake.arc / NOTEMAKE.BAS (.txt)
Encoding:
GW-BASIC  |  1985-07-15  |  1.3 KB  |  40 lines
  1. 1  WIDTH "LPT1:",80
  2. 10  CLS:KEY OFF:DIM A$(24,80)
  3. 20  CLS:X=1:Y=1
  4. 30  GOSUB 150:LOCATE X,Y:PRINT "@";
  5. 40  B$=INKEY$:IF B$="" THEN 40
  6. 45  IF B$=CHR$(4) THEN CHAIN"CAT
  7. 50  IF B$=CHR$(5) THEN CLS:END
  8. 60  IF B$=CHR$(18) THEN CLS:GOSUB 200:GOTO 20
  9. 70  IF B$=CHR$(16) THEN GOTO 220
  10. 80  IF B$=CHR$(13) THEN A$(X,Y)=B$:LOCATE X,Y:PRINT " ":X=X+1:Y=1:LOCATE X,Y:       PRINT "@";:GOTO 40
  11. 90  IF B$=CHR$(8) THEN GOSUB 130:GOTO 40
  12. 100  LOCATE X,Y:PRINT B$;:A$(X,Y)=B$:Y=Y+1
  13. 110  IF Y=80 THEN A$(X,Y)=CHR$(13):BEEP:X=X+1:Y=1:GOTO 40
  14. 120  LOCATE X,Y:PRINT "@";:GOTO 40
  15. 130  LOCATE X,Y:PRINT " ";:Y=Y-1:IF Y=0 THEN Y=1:BEEP:A$(X,Y)=""
  16. 140  LOCATE X,Y:PRINT "@":RETURN
  17. 150  LOCATE 25,1:COLOR 0,7:PRINT " ^P) printer ";:COLOR 7,0
  18. 160  LOCATE 25,14:COLOR 0,7:PRINT "BACKSPACE) delete ";:COLOR 7,0
  19. 170  LOCATE 25,31:COLOR 0,7:PRINT " ^R) restart ";:COLOR 7,0
  20. 180  LOCATE 25,44:COLOR 0,7:PRINT " ^E) exit    ";:COLOR 7,0
  21. 185  LOCATE 25,55:PRINT " ^D) catalog ";
  22. 190  RETURN
  23. 200  LOCATE 10,30:PRINT "please stand by";:FOR I=1 TO X:FOR J=1 TO 80:               A$(I,J)="":NEXT :NEXT :RETURN
  24. 220  LPRINT CHR$(27);"@"
  25. 230  CLS:LOCATE 25,2:COLOR 0,7:PRINT " C)ommand ";:LOCATE 25,16
  26. 240  PRINT " P)rint ";:LOCATE 25,27:PRINT " R)eturn ";:COLOR 7,0
  27. 250  G$=INKEY$:IF G$="" THEN 250
  28. 260  IF G$="P" THEN GOSUB 310
  29. 270  IF G$="C" THEN GOSUB 320:GOTO 230
  30. 280  IF G$="R" THEN GOSUB 300:GOTO 30
  31. 290  GOTO 250
  32. 300  CLS:FOR I=1 TO X:FOR J=1 TO 80:LOCATE I,J:PRINT A$(I,J);:NEXT :NEXT :           RETURN
  33. 310  FOR I=1 TO X:FOR J=1 TO 80:LPRINT A$(I,J);:NEXT :NEXT :RETURN
  34. 320  LOCATE 25,2:PRINT STRING$(78,32);
  35. 330  LOCATE 25,2:PRINT STRING$(78,32);
  36. 340  LOCATE 25,2:COLOR 0,7:PRINT " E) Esc ";:LOCATE 25,26j36<UNK! {0001}>FOR I=1 TO X:FOR J=1 TO 80:LPRINT A$(I,J);:NEXT :NEXT :RETURN
  37. 320  LOCATE 25,2:PRINT STRING$(78,32);
  38. 330  LOCATE 25,2:PRINT STRING$(78,32);
  39. 340  LOCATE 25
  40.